home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / fmdrop.exe / FMDROPS1.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-06-19  |  2.6 KB  |  89 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    Caption         =   "FMDrop Sample"
  6.    ClientHeight    =   3960
  7.    ClientLeft      =   1620
  8.    ClientTop       =   2145
  9.    ClientWidth     =   4320
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   1
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H80000008&
  20.    Height          =   4365
  21.    Left            =   1560
  22.    LinkTopic       =   "Form1"
  23.    ScaleHeight     =   3960
  24.    ScaleWidth      =   4320
  25.    Top             =   1800
  26.    Width           =   4440
  27.    Begin VB.ListBox List1 
  28.       Appearance      =   0  'Flat
  29.       Height          =   2175
  30.       Left            =   240
  31.       TabIndex        =   0
  32.       Top             =   1560
  33.       Width           =   3855
  34.    End
  35.    Begin FmdropLib.FMDrop FMDrop1 
  36.       Left            =   3600
  37.       Top             =   120
  38.       _version        =   65539
  39.       _extentx        =   847
  40.       _extenty        =   847
  41.       _stockprops     =   64
  42.    End
  43.    Begin VB.Label Label2 
  44.       Appearance      =   0  'Flat
  45.       BackColor       =   &H80000005&
  46.       Caption         =   "FMDrop Sample"
  47.       BeginProperty Font 
  48.          name            =   "MS Sans Serif"
  49.          charset         =   1
  50.          weight          =   700
  51.          size            =   12
  52.          underline       =   0   'False
  53.          italic          =   0   'False
  54.          strikethrough   =   0   'False
  55.       EndProperty
  56.       ForeColor       =   &H80000008&
  57.       Height          =   375
  58.       Left            =   240
  59.       TabIndex        =   2
  60.       Top             =   240
  61.       Width           =   2895
  62.    End
  63.    Begin VB.Label Label1 
  64.       Appearance      =   0  'Flat
  65.       BackColor       =   &H80000005&
  66.       Caption         =   $"FMDROPS1.frx":0000
  67.       ForeColor       =   &H80000008&
  68.       Height          =   855
  69.       Left            =   240
  70.       TabIndex        =   1
  71.       Top             =   600
  72.       Width           =   3855
  73.    End
  74. Attribute VB_Name = "Form1"
  75. Attribute VB_Creatable = False
  76. Attribute VB_Exposed = False
  77. Option Explicit
  78. Private Sub FMDrop1_DropFiles()
  79.     Dim I As Integer
  80.     List1.Clear
  81.     For I = 0 To FMDrop1.FileCount - 1
  82.         List1.AddItem FMDrop1.filename(I)
  83.     Next I
  84. End Sub
  85. Private Sub Form_Load()
  86.     Form1.Left = (Screen.Width - Form1.Width) / 2
  87.     Form1.Top = (Screen.Height - Form1.Height) / 2
  88. End Sub
  89.